home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / trnsprtr.dir / 00459_return to main button.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  948 b   |  34 lines
  1. on mouseDown
  2.   global goHome, gRegLoc, gLastPDACategory, gPDACategory, gPDAInternet, gRegionName
  3.   ButtonDown(10, EMPTY)
  4.   if rollOver(10) then
  5.     if the castNum of sprite 48 <> 0 then
  6.       if the type of member the castNum of sprite 48 = #digitalVideo then
  7.         set the movieRate of sprite 48 to 0
  8.         set the movieTime of sprite 48 to 0
  9.         set the ink of sprite 48 to 1
  10.         updateStage()
  11.         set the ink of sprite 48 to 0
  12.         updateStage()
  13.       end if
  14.     end if
  15.     repeat with i = 1 to 48
  16.       puppetSprite(i, 0)
  17.     end repeat
  18.     updateStage()
  19.     set gPDAInternet to 0
  20.     set goHome to 1
  21.     set gPDACategory to 0
  22.     set gLastPDACategory to 0
  23.     set gRegLoc to 0
  24.     SetInfo("Click a Button")
  25.     SetInstruct("Welcome Back" & RETURN & "Ready to Go")
  26.     unLoad()
  27.     if gRegionName = EMPTY then
  28.       set the visible of sprite 6 to 1
  29.       set the visible of sprite 7 to 1
  30.     end if
  31.     go("m1")
  32.   end if
  33. end
  34.